home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1999 January - Disc 2
/
Macworld (1999-01) (Disk 2).dmg
/
Serious Demos
/
Symbolic Composer 4.2
/
Environment
/
Projects
/
Tutorial Material
/
Zone Tutorial
/
Structure Examples
/
6. Zonedm
< prev
next >
Wrap
Lisp/Scheme
|
1998-10-26
|
982b
|
53 lines
; ZONEDM - zone support function example + the use of list.
(setq tonal (activate-tonality (dorian c 3)))
(setq theme '(a b d c))
(setq var1 '((a b d c) (= a b c) (d e f -b)))
(setq t1 '(a b d c))
(setq t2 '(= a b c))
(setq t3 '(d e f -b))
(setq t4 '(a (-1 b) b c))
(setq var1a (list t1 t2 t3 t4)) ; a very important example!
(setq rhy1 '(1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16
1/8 1/8 1/16 1/8 1/16))
(setq rhy2 '((1/16 1/16 1/16 1/16)
(-1/16 1/16 1/16 1/16)
(1/8 1/8 1/16 1/8 1/16)))
(setq dyn1 '(70 67 65 60 10 60 65 67 75 70 85 95 100))
(setq dyn2 '((70 67 65 60) (10 60 65 67) (75 70 85 95 100)))
(def-symbol
bass var1a
perc (pick-drum ("club:strange" 0.45 a b c b a d))
)
(def-length
bass rhy2
perc '(1/16)
)
(def-velocity
bass dyn2
perc dyn1
)
(def-zone
bass '(2/1 2/1 4/1 4/1)
perc '(12/1)
)
(def-tonality
bass tonal
perc mt-32
)
(compile-instrument-p "ccl;output:" "duot"
bass
perc
)